Delphi Informant Complete 1995 - 2000/Delphi Informant Complete 1995 to 2000.iso/Delphi Informant Magazine Complete Works SOURCE CODE 1998.rar/1998/Sep/di9809am/Compont/Sample1/Update/TapiForm.dfm/TapiForm.txt

Text File | 1998-06-29 | 6KB | 289 lines

object TapiCallManager: TTapiCallManager
  Left = 243
  Top = 107
  Width = 557
  Height = 423
  Caption = 'TAPI Demonstration Project'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object PanelTop: TPanel
    Left = 0
    Top = 0
    Width = 549
    Height = 129
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object Label1: TLabel
      Left = 15
      Top = 6
      Width = 84
      Height = 13
      Caption = 'Enter the number:'
    end
    object ePhoneNum: TMaskEdit
      Left = 110
      Top = 2
      Width = 93
      Height = 21
      EditMask = '!9 \(999\) 000-0000;1;_'
      MaxLength = 16
      TabOrder = 0
      Text = '  (   ) 000-0000'
    end
    object btnDial: TButton
      Left = 253
      Top = 6
      Width = 58
      Height = 25
      Caption = 'Dial'
      TabOrder = 1
      OnClick = btnDialClick
    end
    object btnHangup: TButton
      Left = 253
      Top = 35
      Width = 58
      Height = 25
      Caption = 'Hangup'
      TabOrder = 2
      OnClick = btnHangupClick
    end
    object cboxDevices: TComboBox
      Left = 13
      Top = 24
      Width = 228
      Height = 21
      ItemHeight = 13
      TabOrder = 3
      Text = 'Select a device to use'
      OnChange = cboxDevicesChange
    end
    object cbLineMapper: TCheckBox
      Left = 15
      Top = 50
      Width = 149
      Height = 17
      Caption = 'Automatically select Line?'
      TabOrder = 4
      OnClick = cbLineMapperClick
    end
    object cboxMediaMode: TComboBox
      Left = 315
      Top = 8
      Width = 233
      Height = 21
      ItemHeight = 13
      Items.Strings = (
        'LINEMEDIAMODE_UNKNOWN'
        'LINEMEDIAMODE_INTERACTIVEVOICE'
        'LINEMEDIAMODE_AUTOMATEDVOICE'
        'LINEMEDIAMODE_DATAMODEM'
        'LINEMEDIAMODE_G3FAX'
        'LINEMEDIAMODE_TDD'
        'LINEMEDIAMODE_G4FAX'
        'LINEMEDIAMODE_DIGITALDATA'
        'LINEMEDIAMODE_TELETEX'
        'LINEMEDIAMODE_VIDEOTEX'
        'LINEMEDIAMODE_TELEX'
        'LINEMEDIAMODE_MIXED'
        'LINEMEDIAMODE_ADSI'
        'LINEMEDIAMODE_VOICEVIEW')
      TabOrder = 5
      Text = 'Select a Media Mode'
      OnChange = cboxMediaModeChange
    end
    object cboxBearerMode: TComboBox
      Left = 315
      Top = 36
      Width = 233
      Height = 21
      ItemHeight = 13
      Items.Strings = (
        'LINEBEARERMODE_VOICE'
        'LINEBEARERMODE_SPEECH'
        'LINEBEARERMODE_MULTIUSE'
        'LINEBEARERMODE_DATA'
        'LINEBEARERMODE_ALTSPEECHDATA'
        'LINEBEARERMODE_NONCALLSIGNALING'
        'LINEBEARERMODE_PASSTHROUGH')
      TabOrder = 6
      Text = 'Select a Bearer Mode'
      OnChange = cboxBearerModeChange
    end
    object btnDialingProperties: TButton
      Left = 253
      Top = 64
      Width = 105
      Height = 25
      Caption = 'Dialing Properties'
      TabOrder = 7
      OnClick = btnDialingPropertiesClick
    end
    object cbPulseDialing: TCheckBox
      Left = 16
      Top = 72
      Width = 97
      Height = 17
      Caption = 'Pulse Dialing'
      TabOrder = 8
      OnClick = cbPulseDialingClick
    end
    object cboxAcceptCalls: TCheckBox
      Left = 16
      Top = 96
      Width = 137
      Height = 17
      Caption = 'Accept Incoming Calls'
      TabOrder = 9
    end
  end
  object Memo: TMemo
    Left = 185
    Top = 129
    Width = 364
    Height = 237
    Align = alClient
    ScrollBars = ssVertical
    TabOrder = 1
    WantTabs = True
  end
  object StatusBar: TPanel
    Left = 0
    Top = 366
    Width = 549
    Height = 30
    Align = alBottom
    BevelOuter = bvLowered
    TabOrder = 2
  end
  object Panel1: TPanel
    Left = 0
    Top = 129
    Width = 185
    Height = 237
    Align = alLeft
    BevelOuter = bvLowered
    TabOrder = 3
    object RI: TImage
      Left = 4
      Top = 8
      Width = 28
      Height = 28
      Center = True
      Transparent = True
    end
    object CD: TImage
      Left = 4
      Top = 72
      Width = 28
      Height = 28
      Center = True
      Transparent = True
    end
    object RD: TImage
      Left = 4
      Top = 104
      Width = 28
      Height = 28
      Center = True
      Transparent = True
    end
    object DSR: TImage
      Left = 4
      Top = 135
      Width = 28
      Height = 28
      Center = True
      Transparent = True
    end
    object DTR: TImage
      Left = 4
      Top = 167
      Width = 28
      Height = 28
      Center = True
      Transparent = True
    end
    object CTS: TImage
      Left = 4
      Top = 199
      Width = 28
      Height = 28
      Center = True
      Transparent = True
    end
    object Label2: TLabel
      Left = 37
      Top = 16
      Width = 86
      Height = 13
      Caption = 'Ring Indicator (RI)'
    end
    object Label3: TLabel
      Left = 37
      Top = 80
      Width = 89
      Height = 13
      Caption = 'Carrier Detect (CD)'
    end
    object Label4: TLabel
      Left = 37
      Top = 112
      Width = 105
      Height = 13
      Caption = 'Receiving Data (RTS)'
    end
    object Label5: TLabel
      Left = 37
      Top = 143
      Width = 129
      Height = 13
      Caption = 'Ready to Send Data (DSR)'
    end
    object Label6: TLabel
      Left = 37
      Top = 175
      Width = 132
      Height = 13
      Caption = 'Data Terminal Ready (DTR)'
    end
    object Label7: TLabel
      Left = 37
      Top = 207
      Width = 98
      Height = 13
      Caption = 'Clear To Send (CTS)'
    end
    object Port: TImage
      Left = 4
      Top = 40
      Width = 28
      Height = 28
      Center = True
      Transparent = True
    end
    object Label8: TLabel
      Left = 37
      Top = 48
      Width = 52
      Height = 13
      Caption = 'Port Status'
    end
  end
  object ImageList: TImageList
    DrawingStyle = dsTransparent
    Masked = False
    Left = 300
    Top = 168
  end
end